perm filename FOO[CMP,LSP] blob sn#210786 filedate 1976-04-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DEFPROP FOR
C00004 ENDMK
CāŠ—;
(DEFPROP FOR
	 (LAMBDA (A U1 U2 U3)
		 (PROG NIL
		       (SETQ A 0)
		  NEXT (EVAL U3)
		       (SET A (EVAL U1))
		       (COND ((EVAL U2) (RETURN)) (T (GO NEXT)))))
	 EXPR)

(DEFPROP FORSHORT
	 (LAMBDA (U2) (PROG NIL (COND ((EVAL U2) (RETURN)))))
	 EXPR)

(DEFPROP FORFIX
	 (LAMBDA (U2) (PROG NIL (COND ((WASEVAL U2) (RETURN)))))
	 EXPR)